home *** CD-ROM | disk | FTP | other *** search
/ Aminet 39 / Aminet 39 (2000)(Schatztruhe)[!][Oct 2000].iso / Aminet / gfx / edit / PfPaint_V2.lha / PerfectPaint / rexx / text / Emboss.rx < prev    next >
Encoding:
Text File  |  1999-12-18  |  1.5 KB  |  116 lines
  1. /*
  2.     Arexx Text Script
  3. */
  4.  
  5.     options results
  6.   parse ARG Port x y b
  7.     ADDRESS value Port
  8.     pp_AvoidRefresh
  9.  
  10.     F=5
  11.     type=0
  12.     type2=0
  13.     ADDRESS COMMAND
  14.     if EXISTS('PerfectPaint:Prefs/Rexx_Prefs/Emboss') THEN DO
  15.         IF OPEN('lfile','PerfectPaint:Prefs/Rexx_Prefs/Emboss', "R") then DO
  16.             type=READLN('lfile')
  17.             F = READLN('lfile')
  18.             type2=READLN('lfile')                
  19.             CALL CLOSE('lfile')
  20.         END
  21.     END
  22.  
  23.     ADDRESS value Port
  24.     pp_DialogInit 150 100 "*Emboss*" 3
  25.     pp_Cycle 0 60 5 60 16 "Shift" 1 "Low|High" type
  26.     pp_Integer 1 60 25 50 16 "Flow" 1 F
  27.     pp_Cycle 2 60 45 60 16 "Smooth" 1 "No|Yes" type2    
  28.     pp_Dialog
  29.     rc=result
  30.     if rc=0 then
  31.         do
  32.             pp_PermitRefresh
  33.             EXIT
  34.         end    
  35.  
  36.     pp_GetDialog 0
  37.     type=result
  38.  
  39.     pp_GetDialog 1
  40.     F=result
  41.  
  42.     pp_GetDialog 2
  43.     type2=result
  44.  
  45.     CALL SavePrefs('Emboss',type,F,type2)
  46.     ADDRESS value Port
  47.  
  48.     dec=1
  49.     IF type=1 then DO
  50.         dec=2
  51.     END
  52.  
  53.     IF F>0 then DO
  54.         pp_EffectOn
  55.         pp_Airbrush 100 F
  56.     END        
  57.  
  58.     pp_UpdateUndo
  59.  
  60.     pp_GetApen
  61.     Aclr=result
  62.  
  63.     pp_ClosestColorD Aclr 80
  64.     C0=result
  65.  
  66.     pp_ClosestColorL Aclr 80
  67.     C1=result
  68.  
  69.     pp_SetApen C0
  70.     pp_TextDraw x-dec y-dec
  71.  
  72.     pp_SetApen C1
  73.     pp_TextDraw x+dec y+dec
  74.  
  75.     IF F>0 then DO
  76.         IF type2=0 then DO
  77.             pp_EffectOff
  78.         END
  79.     END
  80.  
  81.     pp_SetApen Aclr
  82.     pp_TextDraw x y
  83.  
  84.     pp_PermitRefresh
  85.  
  86.     pp_EffectOff
  87.     
  88. EXIT
  89.  
  90. SavePrefs: PROCEDURE
  91.     
  92.     Prefname='PerfectPaint:Prefs/Rexx_Prefs/'||ARG(1)
  93.  
  94.     if EXISTS(Prefname) THEN DO
  95.         ADDRESS COMMAND
  96.         'delete >nil: '||Prefname
  97.     END
  98.  
  99.     IF OPEN('pfile',PrefName,'W') THEN DO
  100.  
  101.     do i=2 to ARG()
  102.         CALL WRITELN('pfile',ARG(i))
  103.     end
  104.  
  105.     CALL CLOSE('pfile')
  106.  
  107. RETURN
  108.     
  109.  
  110.     
  111.  
  112.  
  113.     
  114.  
  115.     
  116.